home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Belgian Amiga Club - ADF Collection
/
BS1 part 26.zip
/
BS1 part 26
/
Powervisor v1.10b disk1.adf
/
s
/
pv
/
cmd.pv
< prev
next >
Wrap
Text File
|
1991-09-17
|
788b
|
39 lines
/*=======================================================*/
/* */
/* Execute cli commands from within PowerVisor V1.0 */
/* */
/* © Jorrit Tyberghein 17 Sep 1991 */
/* */
/*=======================================================*/
options results
'string rc'
cmd=result
ti=pragma('Id')
address command cmd '>t:cmd'ti
if rc~=0 then
do
'print "Command failed with returncode' rc '!\0a"'
address command 'delete t:cmd'ti' >nil:'
exit
end
if ~open(file,'t:cmd'ti,'R') then
do
address command 'delete t:cmd'ti' >nil:'
'print "Error opening file !\0a"'
exit
end
line=readln(file)
do while ~eof(file)
'print "·Å'line'Å\0a"'
line=readln(file)
end
call close file
address command 'delete t:cmd'ti' >nil:'
exit